home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 March / 64er_Magazin_85-03_1985_Markt__Technik_de.d64 / ligatab b1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  19KB  |  765 lines
  1. 1 poke53280,0:poke53281,0:printchr$(14):rem poke788,52:poke792,193
  2. 3 printchr$(147):print
  3. 4 print "        [194]itte warten"
  4. 5 gosub655
  5. 6 printzd$zh$
  6. 7 printzh$"     "za$"                           "zb$"
  7. 8 [153]"     "za$" "zb$"                         "za$" "zb$
  8. 9 [153]"     "za$" "zb$"      (NULL)closeright$closechr$closeatnclose(NULL)closeatnclosepeekclose     "za$" "zb$
  9. 10 [153]"     "za$" "zb$"                         "za$" "zb$
  10. 11 [153]"     "za$" "zb$"  by left$euser ascranz-mid$osef  "za$" "zb$
  11. 12 [153]"     "za$" "zb$"                         "za$" "zb$
  12. 13 [153]"     "za$" "zb$"  right$n den atntzenbenden 74  "za$" "zb$
  13. 14 [153]"     "za$" "zb$"                         "za$" "zb$
  14. 15 [153]"     "za$" "zb$"    5100 atnachen-left$aaren   "za$" "zb$
  15. 16 [153]"     "za$" "zb$"                         "za$" "zb$
  16. 17 [153]"     "za$" "zb$"    (NULL)elefon 0241/16737   "za$" "zb$
  17. 18 [153]"     "za$" "zb$"                         "za$" "zb$
  18. 19 [153]"     "za$"                           "zb$"
  19. 20 print:print:print"     [194]itte geben [211]ie das heutige"
  20. 21 print:print"     [196]atum in der [198]orm [212][212].[205][205].[202][202][202][202]"          "
  21. 22 [153]"                       ^^ ^^ ^^^^"          "
  22. 23 print"     ein.              ..........";
  23. 24 printze$ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$;:inputda$
  24. 25 print:print:printza$z0$zb$
  25. 26 gosub709
  26. 27 ifw$<>"j"then6
  27. 28 dimm$(20),m(20),d(38,10),e(38,10),l(20,9),g$(38,20),sr$(20),z(20)
  28. 29 dimh$(38,20),k1(20,2),ds$(38),n$(38,10),dn$(38,10)
  29. 30 gosub575
  30. 31 printzd$za$z1$zb$:print
  31. 32 print"-------- "zz$" ----------" :print
  32. 33 print"   "za$" 1 "zb$" = "zw$
  33. 34 print"   "za$" 2 "zb$" = "zt$
  34. 35 print"   "za$" 3 "zb$" = "zs$:print
  35. 36 print"--------    "zy$"   ----------":print
  36. 37 print"   "za$" 4 "zb$" = "zr$
  37. 38 print"   "za$" 5 "zb$" = "zq$
  38. 39 print"   "za$" 6 "zb$" = "zp$:print
  39. 40 print"--------   "zx$"   ----------":print
  40. 41 print"   "za$" 7 "zb$" = "zo$
  41. 42 print"   "za$" 8 "zb$" = "zn$:print
  42. 43 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":print
  43. 44 print"   "za$" 9 "zb$" = "za$zm$zb$
  44. 45 print:printzl$
  45. 46 gosub709
  46. 47 w=val(w$):ifw<1orw>9then46
  47. 48 onwgosub50,88,147,194,219,291,331,374,411
  48. 49 goto31
  49. 50 printzd$:printza$z2$zb$:print
  50. 51 ifln$=""thenln$="................"
  51. 52 ifa=0thenprint:print"        [197][160][210][160][211][160][212][160][197][160][201][160][206][160][199][160][193][160][194][160][197][160][160] ":print:print
  52. 53 ifa=0thenprint" [204]iganame =   ";ln$:printzc$zg$zg$zg$zg$zg$
  53. 54 ifa=0thenprint:forx=1to12:printzf$;:nextx
  54. 55 ifa=0theninputln$:ln$=left$(ln$,16):print
  55. 56 ifa=0theninput" [215]ieviele [205]annschaften (3-20) ";a:gosub571:y=1
  56. 57 ifa<3ora>20thena=0:goto50
  57. 58 printzd$za$z2$zb$:print
  58. 59 fori=1toa
  59. 60 ifi<10thenprintzf$;
  60. 61 printi;ze$;". [205]annschaft     ";m$(i)
  61. 62 nexti
  62. 63 ify=1thengosub82
  63. 64 printzg$za$z0$zb$
  64. 65 gosub709
  65. 66 ifw$="j"theny=0:return
  66. 67 ifw$<>"n"then65
  67. 68 printzh$;:print"        "za$"[206]"zb$"ame  "za$"[193]"zb$"nzahl falsch ?";
  68. 69 print"          "
  69. 70 gosub709
  70. 71 ifw$="n"theny=1:gosub82:goto80
  71. 72 ifw$="a"thenprintzh$zh$
  72. 73 print"        "za$"-"zb$" = [197]ine [205]annschaft weniger"
  73. 74 print:print"        "za$"+"zb$" = [197]ine [205]annschaft mehr"
  74. 75 gosub709
  75. 76 ifw$="-"thengosub497:y=0:goto58
  76. 77 ifw$="+"thengosub526:y=0:goto58
  77. 78 goto75
  78. 79 w$="a"
  79. 80 ifw$="n"thenprintzh$:goto64
  80. 81 ifw$<>"n"orw$<>"a"then70
  81. 82 printzc$zg$
  82. 83 fori=1toa
  83. 84 forx=1to18:printzf$;:nextx
  84. 85 inputm$:m$(i)=left$(m$,15):m$=""
  85. 86 nexti
  86. 87 return
  87. 88 printzd$za$z3$zb$:print:print
  88. 89 print"   "za$" e "zb$" = [211]pielplan       eingeben":print
  89. 90 print"   "za$" s "zb$" = [211]piele          sichten":print
  90. 91 print"         [197]rgebnisse      -e-s-k-":print
  91. 92 print"   "za$" n "zb$" = [206]achholspiele   -e-s-k-":print
  92. 93 print"   "za$" m "zb$" = [205]enue"
  93. 94 gosub709
  94. 95 ifw$="m"thenreturn
  95. 96 ifw$="e"then101
  96. 97 ifw$="s"thenprint:print:print"   [211]tart bei [211]pieltag (1-";b;")";:inputbs
  97. 98 ifw$="s"then120
  98. 99 ifw$="n"then685
  99. 100 goto88
  100. 101 gosub571
  101. 102 gosub477
  102. 103 fori=1toint(b/2)
  103. 104 gosub712
  104. 105 printza$i;ze$;"[212]ag [215]er spielte gegen wen (1 -"a;:printze$")   "zb$:print
  105. 106 forj=1toc
  106. 107 printzf$;d(i,j)
  107. 108 printzh$zf$zf$zf$zf$zf$" - ";:print e(i,j):printzh$zh$
  108. 109 inputd$
  109. 110 d(i,j)=val(left$(d$,2)):d$=""
  110. 111 printzh$zf$zf$zf$zf$" - ";:input e$:e(i,j)=val(left$(e$,2)):e$=""
  111. 112 nextj
  112. 113 printza$z0$zb$
  113. 114 gosub709
  114. 115 ifw$="m"thenreturn
  115. 116 ifw$<>"j"then104
  116. 117 nexti
  117. 118 gosub519
  118. 119 goto88
  119. 120 gosub571:ifbs<1orbs>bthen88
  120. 121 fori=bstob
  121. 122 gosub712
  122. 123 printzc$:forx=1to6:printzg$:nextx
  123. 124 printza$i;ze$;"[212]ag       [197][160][210][160][199][160][197][160][194][160][206][160][201][160][211][160][211][160][197]       "zb$:print
  124. 125 forj=1toc
  125. 126 gosub732:printd(i,j)
  126. 127 printzh$zf$zf$zf$zf$" - ";:printe(i,j):printzh$zh$
  127. 128 ifn$(i,j)="n"thenprint:printzh$;:for x=1to18:printzf$;:nextx
  128. 129 ifn$(i,j)="n"thenprint" nachholspiel":goto137
  129. 130 ifg$(i,d(i,j))<>""thenprint:printzh$;:forx=1to18:printzf$;:nextx
  130. 131 ifg$(i,d(i,j))<>""thenprintg$(i,d(i,j));
  131. 132 ifg$(i,d(i,j))<>""thenprint:printzh$;:forx=1to23:printzf$;:nextx:print"*";
  132. 133 ifh$(i,d(i,j))<>""thenprint"  ";h$(i,d(i,j))
  133. 134 ifg$(i,d(i,j))=""andh$(i,d(i,j))=""thenprint:printzh$;
  134. 135 ifg$(i,d(i,j))=""andh$(i,d(i,j))=""thenprint;:forx=1to23:printzf$;:nextx
  135. 136 ifg$(i,d(i,j))=""andh$(i,d(i,j))=""thenprint"*"
  136. 137 gosub735
  137. 138 nextj
  138. 139 ifa<19thenprint
  139. 140 printza$zk$zb$:gosub709
  140. 141 ifw$=zh$theni=i:ifi=btheni=0
  141. 142 ifw$=zg$theni=i-2:ifi<0theni=b-1
  142. 143 ifw$="k"thengosub552
  143. 144 ifw$="m"thenreturn
  144. 145 nexti
  145. 146 goto88
  146. 147 gosub571
  147. 148 printzd$za$z4$zb$:print
  148. 149 print"      [194]is zu welchem [211]pieltag ?"
  149. 150 ifb=0thenreturn
  150. 151 print:print"      1 - ";b;:input k
  151. 152 ifk<1ork>bthen148
  152. 153 gosub 738:print:print"      [201]ch berechne die [212]abelle !"
  153. 154 print:print"             [194]itte warten "
  154. 155 fori=1to20
  155. 156 forj=1to9
  156. 157 l(i,j)=0
  157. 158 nextj
  158. 159 nexti
  159. 160 fori=1toa
  160. 161 forj=1tok
  161. 162 ifg$(j,i)=""orh$(j,i)=""then169
  162. 163 l(i,4)=l(i,4)+1
  163. 164 l(i,1)=l(i,1)+val(g$(j,i))
  164. 165 l(i,2)=l(i,2)+val(h$(j,i))
  165. 166 ifval(g$(j,i))>val(h$(j,i))thenl(i,5)=l(i,5)+1
  166. 167 ifval(g$(j,i))=val(h$(j,i))thenl(i,6)=l(i,6)+1
  167. 168 ifval(g$(j,i))<val(h$(j,i))thenl(i,7)=l(i,7)+1
  168. 169 nextj
  169. 170 nexti
  170. 171 fori=1toa
  171. 172 l(i,3)=l(i,1)-l(i,2)
  172. 173 l(i,8)=(l(i,5)*2)+l(i,6)
  173. 174 l(i,9)=(l(i,7)*2)+l(i,6)
  174. 175 nexti
  175. 176 gosub622:gosub 739
  176. 177 ifr1=1thenr1=0:return
  177. 178 gosub 738:printzd$za$z4$zb$:print
  178. 179 print"    [212]abelle einschl.";k;ze$". [211]pieltag":print:print
  179. 180 ifa>17thenprintzh$zh$
  180. 181 print"[208]l.[221] [206]ame          [221] [212]ord. [221] +[208]u.[221] -[208]u."
  181. 182 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":ty=0
  182. 183 fori=1toa
  183. 184 ifm$(z(i))="..............."then190
  184. 185 ty=ty+1:printty;
  185. 186 print:printzh$zf$zf$zf$;left$(m$(z(i)),15)
  186. 187 printzh$;:forx=1to21:printzf$;:nextx:print l(z(i),3)
  187. 188 printzh$;:forx=1to28:printzf$;:nextx:print l(z(i),8)
  188. 189 printzh$;:forx=1to34:printzf$;:nextx:print l(z(i),9)
  189. 190 nexti
  190. 191 gosub739:ifr1=1thenr1=0:return
  191. 192 gosub709
  192. 193 return
  193. 194 printzd$za$z5$zb$:print:print
  194. 195 print"   [196]ruckerausgabe [205]annschaftsliste":print
  195. 196 print"        [211]tand :      ";da$:print
  196. 197 print"         [196]rucker eingeschaltet ?":print
  197. 198 print"         [215]enn fertig dann ";za$zv$zb$
  198. 199 print:print:print "               [205] = [205]enue"
  199. 200 gosub709
  200. 201 ifw$="m"then return
  201. 202 ifw$<>chr$(13)then194
  202. 203 close2:open2,4,7
  203. 204 print#2
  204. 205 print#2,chr$(14);"********** [205]annschaftsliste ***********";chr$(15)
  205. 206 print#2
  206. 207 print#2,chr$(14);ln$"     [211]tand : ";da$;chr$(15)
  207. 208 print#2:gosub711
  208. 209 print#2,chr$(14);"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";chr$(15)
  209. 210 print#2
  210. 211 fori=1toastep4
  211. 212 print#2,m$(i);"      ";
  212. 213 print#2,m$(i+1);"      ";
  213. 214 print#2,m$(i+2);"     ";
  214. 215 print#2,m$(i+3)
  215. 216 nexti
  216. 217 print#2:print#2:print#2:close2
  217. 218 return
  218. 219 printzd$za$z6$zb$:print:print:print:print
  219. 220 print" "za$" [193] "zb$" = [203]ompletter [211]pielplan":print
  220. 221 print" "za$" [194] "zb$" = [197]in bestimmter [211]pieltag":print
  221. 222 print" "za$" [195] "zb$" = [214]on / bis zu einen [211]pieltag ":print
  222. 223 print" "za$" [196] "zb$" = [197]rgebnisse einer [205]annschaft":print
  223. 224 print" "za$" [206] "zb$" = [206]achholspiele":print
  224. 225 print" "za$" [205] "zb$" = [205]enue":print:print:print
  225. 226 gosub709
  226. 227 ifw$="m"thenreturn
  227. 228 ifw$="a"thenb1=1:b2=b
  228. 229 ifw$="a"thenb3=1:goto240
  229. 230 ifw$="b"thenprint" [215]elcher [211]pieltag 1 - ";ze$;b;:inputb1:b2=b1
  230. 231 ifw$="b"thenb3=2:goto240
  231. 232 ifw$="c"orw$="n"thenprint" von welchem [211]pieltag 1 - ";ze$;b;:inputb1:print
  232. 233 ifw$="c"orw$="n"thenprint" bis welchem [211]pieltag";b1;"- ";ze$;b;:inputb2
  233. 234 b4=0:ifw$="n"thenb4=1
  234. 235 ifw$="c"orw$="n"thenb3=3:goto240
  235. 236 ifw$="d"thengosub435
  236. 237 goto219
  237. 238 ifb1<1orb1>bthen219
  238. 239 ifb2<b1orb2>bthen219
  239. 240 printzd$za$z6$zb$:print:print:print
  240. 241 print"           [196]ruckerausgabe":print:print
  241. 242 ifw$="a"thenprint "        [203]ompletter [211]pielplan"
  242. 243 ifw$="b"thenprint "           ";b1;ze$;". [211]pieltag"
  243. 244 ifw$="n"thenprint"           [206]achholspiele":print:print
  244. 245 ifw$="c"orw$="n"thenprint "   [214]om";b1;"bis einschl.";b2;ze$;". [211]pieltag"
  245. 246 print:print:print"        [211]tand :   ";da$:print:print
  246. 247 print"      "za$" [205] "zb$" = [205]enue "za$" [196] "zb$" = [196]rucken"
  247. 248 gosub709
  248. 249 ifw$="m"thenreturn
  249. 250 ifw$<>"d"then219
  250. 251 gosub571
  251. 252 gosub 738:close2:open2,4,7
  252. 253 print#2,chr$(14);"********** [211] p i e l p l a n **********"chr$(15)
  253. 254 print#2
  254. 255 print#2,chr$(14);ln$;"      ";"[211]tand :";da$;chr$(15)
  255. 256 ifb3=1then261
  256. 257 print#2
  257. 258 ifb3=3thenprint#2,chr$(14);"   vom";b1;". bis einschl.";
  258. 259 ifb3=3thenprint#2,b2;". [211]pieltag";chr$(15)
  259. 260 ifb3=2thenprint#2,chr$(14);"             ";b2;". [211]pieltag";chr$(15)
  260. 261 print#2:gosub 711
  261. 262 print#2,chr$(14);"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";chr$(15)
  262. 263 print#2:ifb4=1thengoto425
  263. 264 fori=b1tob2step2
  264. 265 print#2,"*";i;". [211]pieltag ";ds$(i);
  265. 266 ifi+1>b2thenprint#2
  266. 267 ifi+1<=b2thenprint#2,chr$(16)chr$(52)chr$(48);"*";i+1;
  267. 268 ifi+1<=b2thenprint#2,". [211]pieltag ";ds$(i+1)
  268. 269 print#2
  269. 270 j=1:x=1
  270. 271 foryy=jtoc
  271. 272 ifd(i,yy)=0thenj=j+1
  272. 273 ifd(i,yy)>0then275
  273. 274 nextyy
  274. 275 print#2,m$(d(i,j));"-";m$(e(i,j));" ";g$(i,d(i,j));":";h$(i,d(i,j));
  275. 276 j=j+1
  276. 277 ifb2=b1thenprint#2:goto284
  277. 278 forxx=xtoc
  278. 279 ifd(i+1,xx)=0thenx=x+1
  279. 280 ifd(i+1,xx)>0then282
  280. 281 nextxx
  281. 282 print#2,chr$(16)chr$(52)chr$(48);m$(d(i+1,x));"-";m$(e(i+1,x));" ";
  282. 283 print#2,g$(i+1,d(i+1,x));":";h$(i+1,d(i+1,x))
  283. 284 x=x+1
  284. 285 ifx>cthen287
  285. 286 goto271
  286. 287 print#2
  287. 288 nexti
  288. 289 print#2:print#2:print#2:close2:gosub739
  289. 290 goto219
  290. 291 printzd$za$z7$zb$:print
  291. 292 r1=1:gosub149
  292. 293 printzd$za$z7$zb$:print
  293. 294 r1=1:gosub179
  294. 295 print:print"   "za$" [196] "zb$" =  [196]rucken  "za$" [205] "zb$" = [205]enue"
  295. 296 gosub709
  296. 297 ifw$="m"thenreturn
  297. 298 ifw$<>"d"then296
  298. 299 gosub 738:close2:open2,4,7
  299. 300 print#2
  300. 301 print#2,chr$(14);"************ [212] a b e l l e ************"
  301. 302 print#2
  302. 303 print#2,ln$;"     [211]tand : ";da$
  303. 304 print#2
  304. 305 print#2,"        einschl.";k;". [211]pieltag";chr$(15)
  305. 306 print#2:gosub 711
  306. 307 print#2,chr$(14);"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";chr$(15)
  307. 308 print#2
  308. 309 print#2
  309. 310 print#2,"       [208]l.   [214]erein          [211]p.   [199]   [213]   [214]    +[212]  ";
  310. 311 print#2," -[212]   [212][196]    +[208]   -[208]  "
  311. 312 print#2,"      [171][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][192][192][219]";
  312. 313 print#2,"[192][192][192][192][219][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][179]":ty=0
  313. 314 fori=1toa
  314. 315 ifm$(z(i))="..............."then327
  315. 316 ty=ty+1:print#2,chr$(16)chr$(48)chr$(55);ty;
  316. 317 print#2,chr$(16)chr$(49)chr$(50);m$(z(i));
  317. 318 print#2,chr$(16)chr$(50)chr$(56);l(z(i),4);
  318. 319 print#2,chr$(16)chr$(51)chr$(52);l(z(i),5);
  319. 320 print#2,chr$(16)chr$(51)chr$(56);l(z(i),6);
  320. 321 print#2,chr$(16)chr$(52)chr$(50);l(z(i),7);
  321. 322 print#2,chr$(16)chr$(52)chr$(55);l(z(i),1);
  322. 323 print#2,chr$(16)chr$(53)chr$(50);l(z(i),2);
  323. 324 print#2,chr$(16)chr$(53)chr$(55);l(z(i),3);
  324. 325 print#2,chr$(16)chr$(54)chr$(51);l(z(i),8);
  325. 326 print#2,chr$(16)chr$(54)chr$(56);l(z(i),9)
  326. 327 nexti
  327. 328 print#2
  328. 329 print#2:print#2:print#2:close2:gosub739
  329. 330 printzh$zh$zh$:goto295
  330. 331 printzd$za$z8$zb$:print:print:print
  331. 332 print"      [210]ichtige [196]iskette einlegen":print
  332. 333 ifln$=""thenln$="................"
  333. 334 gosub709
  334. 335 gosub740
  335. 336 print:print"      [196]ateiname =   ";ln$
  336. 337 printzh$zf$zf$zf$zf$zf$zf$zf$zf$zf$zf$zf$zf$zf$zf$zf$zf$zf$zf$;:inputln$
  337. 338 print:printza$z0$zb$:gosub709
  338. 339 ifw$<>"j"then331
  339. 340 print:print"      [215]enn fertig dann ";za$zv$zb$:print
  340. 341 print"              [205] = [205]enue"
  341. 342 gosub709
  342. 343 ifw$="m"thenreturn
  343. 344 ifw$<>chr$(13)then331
  344. 345 printzd$za$z8$zb$:print:print:print
  345. 346 print"   [196]aten werden von [196]iskette geladen"
  346. 347 print:print"            [194]itte warten":print
  347. 348 print:print"           ";za$"  [204][160]a d e n  "zb$:print
  348. 349 gosub 738:close1:open1,8,3,ln$+",s,r"
  349. 350 input#1,a:gosub571
  350. 351 input#1,ln$
  351. 352 fori=1toa
  352. 353 input#1,m$(i)
  353. 354 nexti
  354. 355 fori=1tob
  355. 356 input#1,ds$(i)
  356. 357 forj=1toc
  357. 358 input#1,d(i,j)
  358. 359 input#1,e(i,j)
  359. 360 input#1,n$(i,j)
  360. 361 input#1,dn$:ifdn$<>"......198."thendn$(i,j)=dn$
  361. 362 nextj
  362. 363 nexti
  363. 364 fori=1tob
  364. 365 forj=1toa
  365. 366 input#1,g$(i,j)
  366. 367 input#1,h$(i,j)
  367. 368 nextj
  368. 369 nexti
  369. 370 close1:gosub739
  370. 371 gosub604
  371. 372 gosub571
  372. 373 return
  373. 374 printzd$za$z9$zb$:print:print:print
  374. 375 print"      [210]ichtige [196]iskette einlegen":print
  375. 376 print "      [196]ateiname = ";ln$:print
  376. 377 print "      [215]enn fertig dann ";za$zv$zb$:print
  377. 378 print "              [205] = [205]enue"
  378. 379 gosub 709
  379. 380 if w$="m" then return
  380. 381 ifw$<>chr$(13)then374
  381. 382 printzd$za$z9$zb$:print:print:print
  382. 383 print" [196]aten werden auf [196]iskette gespeichert"
  383. 384 print:print"            [194]itte warten":print
  384. 385 gosub 587
  385. 386 print:print"           ";za$"  [211]peichern  "zb$:print
  386. 387 gosub 738:close1:open1,8,3,"@:"+ln$+",s,w"
  387. 388 print#1,a;chr$(13)
  388. 389 print#1,ln$;chr$(13)
  389. 390 fori=1toa
  390. 391 print#1,m$(i);chr$(13)
  391. 392 nexti
  392. 393 fori=1tob
  393. 394 print#1,ds$(i);chr$(13)
  394. 395 forj=1toc
  395. 396 print#1,d(i,j);chr$(13)
  396. 397 print#1,e(i,j);chr$(13)
  397. 398 print#1,n$(i,j);chr$(13)
  398. 399 print#1,dn$(i,j);chr$(13)
  399. 400 nextj
  400. 401 nexti
  401. 402 fori=1tob
  402. 403 forj=1toa
  403. 404 print#1,g$(i,j);chr$(13)
  404. 405 print#1,h$(i,j);chr$(13)
  405. 406 nextj
  406. 407 nexti
  407. 408 close1:gosub 739
  408. 409 gosub604
  409. 410 return
  410. 411 printzd$za$y9$zb$:print:print
  411. 412 print"[160]   [211]ind alle [196]aten auf [196]iskette":print
  412. 413 print"    gesichert  ??????????  ([202]/[206])":print
  413. 414 input"                ";w$:print
  414. 415 ifw$<>"j"thenreturn
  415. 416 print"    ";za$" [215][160][201][160][210][160][203][160][204][160][201][160][195][160][200][160] ???? "zb$;
  416. 417 input"  ";w1$
  417. 418 ifw1$<>"j"thenreturn
  418. 419 print:print:print:wx$=""
  419. 420 print"    [206] = [206]eue [204]iga":print
  420. 421 print"    [197] = [208]rogrammende"
  421. 422 get wx$:ifwx$=""then422
  422. 423 ifwx$<>"e"thenclr:goto3
  423. 424 sys64738
  424. 425 print#2,chr$(14);" [206] a c h h o l s p i e l e ";chr$(15):print#2
  425. 426 fori=b1tob2
  426. 427 forj=1toc
  427. 428 ifn$(i,j)<>"n"then432
  428. 429 print#2,"[214]om";:ifi<10thenprint#2," ";
  429. 430 print#2,i;".[211]pieltag ";ds$(i);" ";m$(d(i,j));" - ";
  430. 431 print#2,m$(e(i,j));" neu am ";dn$(i,j)
  431. 432 nextj
  432. 433 nexti
  433. 434 goto289
  434. 435 gosub571
  435. 436 printzd$za$z6$zb$:print
  436. 437 print"           [196]ruckerausgabe":print:print
  437. 438 print"     [211]pielplan einer [205]annschaft"
  438. 439 print:print"     [211]tand :         ";da$:print
  439. 440 print"     [215]elcher [205]anns.  ( 1 - ";ze$;a;ze$;" ) ";:inputmn:print
  440. 441 ifmn<1ormn>athenprintzh$zh$zh$:goto440
  441. 442 print"          ";m$(mn):print
  442. 443 printza$z0$zb$
  443. 444 gosub709
  444. 445 ifw$<>"j"then435
  445. 446 printzh$zh$
  446. 447 print"      "za$" [205] "zb$" = [205]enue "za$" [196] "zb$" = [196]rucken        "
  447. 448 gosub709
  448. 449 ifw$="m"thenreturn
  449. 450 ifw$<>"d"then448
  450. 451 close2:open2,4,7
  451. 452 print#2,chr$(14);"****** [211]pielplan ";m$(mn);" ******";chr$(15):print#2
  452. 453 print#2,chr$(14);ln$"     [211]tand : ";da$;chr$(15)
  453. 454 print#2:gosub711
  454. 455 print#2,chr$(14);"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";chr$(15)
  455. 456 print#2
  456. 457 fori=1tob
  457. 458 forj=1toc
  458. 459 ifm$(mn)<>m$(d(i,j))andm$(mn)<>m$(e(i,j))then462
  459. 460 print#2,i;".";chr$(16)chr$(48)chr$(55);ds$(i);"    ..... [213]hr     ";
  460. 461 print#2,m$(d(i,j));" [192] ";m$(e(i,j));"  ";g$(i,d(i,j));":"h$(i,d(i,j))
  461. 462 nextj
  462. 463 nexti
  463. 464 print#2:print#2:print#2:close2
  464. 465 print:print:print" [205]oechten [211]ie einen weiteren [193]usdruck"
  465. 466 print:print" von [205]annschaft       ";m$(mn)     "
  466. 467 [141]709
  467. 468 [139]w$[178]"j"[167]451
  468. 469 [139]w$[179][177]"n"[167]467
  469. 470 [153]zh$zh$zh$zh$
  470. 471 [153]" (NULL)oechten  (NULL)ie  einen  atnusdruck einer  "
  471. 472 [153]:[153]" anderen  (NULL)annschaft          ( mid$/(NULL) )  "
  472. 473 [141]709
  473. 474 [139]w$[178]"j"[167]435
  474. 475 [139]w$[179][177]"n"[167]473
  475. 476 [142]
  476. 477 [153]zd$za$z3$zb$:[153]
  477. 478 [153]:[153]"        peekitte str$atum in der ascorm":[153]
  478. 479 [153]"        > (NULL)(NULL).(NULL)(NULL).mid$mid$mid$mid$ < eingeben":[153]
  479. 480 [129]i[178]1[164]b[169]2
  480. 481 [153]i;ze$;". ":[153]zh$zf$zf$zf$zf$zf$zf$;ds$(i)
  481. 482 [153]zh$;:[129]x[178]1[164]20:[153]zf$;:[130]x:[153] i[170]1;ze$;". "
  482. 483 [153]zh$;:[129]x[178]1[164]27:[153]zf$;:[130]x:[153]ds$(i[170]1)
  483. 484 [130]i
  484. 485 [153]:[153]za$z0$zb$
  485. 486 [141]709
  486. 487 [139]w$[178]"j"[167][142]
  487. 488 [139]w$[179][177]"n"[167]486
  488. 489 [153]zc$zg$zg$zg$zg$zg$zg$
  489. 490 [139]a[178]17[176]a[178]18[167][153]zh$zh$zh$
  490. 491 [139]a[178]19[176]a[178]20[167][153]zh$zh$zh$zh$zh$
  491. 492 [129]i[178]1[164]b[169]2
  492. 493 [153]zf$zf$zf$zf$;:[133]ds$:ds$(i)[178][200](ds$,10):[153]zh$;
  493. 494 [129]x[178]1[164]25:[153]zf$;:[130]x:[133]ds$:ds$(i[170]1)[178][200](ds$,10)
  494. 495 [130]i
  495. 496 [137]485
  496. 497 [129]am[178]1[164]a
  497. 498 [139][200](m$(am),5)[178]"....."[167]500
  498. 499 an[178]an[170]1
  499. 500 [130]am
  500. 501 [153]zh$"                                     "
  501. 502 [153]zh$zh$zh$"                                     "
  502. 503 [139]an[171]1[179]3[167][153]zh$"(NULL)icht zulaessig ! (NULL)annschaftsanzahl < 3"
  503. 504 [139]an[171]1[179]3[167]an[178]0:[141]709:[142]
  504. 505 an[178]0
  505. 506 [153]zh$"     (NULL)elche (NULL)annschaft 1 -";a;:[133] " ";mw
  506. 507 [153]zh$"  "za$" right$ch korrigiere die str$aten von "mw;ze$"   "zb$
  507. 508 [141]571
  508. 509 [129]i[178]1[164]b
  509. 510 [129]j[178]1[164]c
  510. 511 [139]d(i,j)[179][177]mw[175]e(i,j)[179][177]mw[167]515
  511. 512 g$(i,d(i,j))[178]"":h$(i,d(i,j))[178]""
  512. 513 g$(i,e(i,j))[178]"":h$(i,e(i,j))[178]""
  513. 514 d(i,j)[178]0:e(i,j)[178]0
  514. 515 [130]j
  515. 516 [130]i
  516. 517 m$(mw)[178]"..............."
  517. 518 [142]
  518. 519 [129]i[178][181](b[173]2)[170]1[164]b
  519. 520 [129]j[178]1[164]c
  520. 521 d(i,j)[178]e(i[171]b[173]2,j)
  521. 522 e(i,j)[178]d(i[171]b[173]2,j)
  522. 523 [130]j
  523. 524 [130]i
  524. 525 [142]
  525. 526 [153]zh$"                                     "
  526. 527 [153]zh$zh$zh$"                                     "
  527. 528 [139]a[170]1[177]20[167][153]zh$"(NULL)icht zulaessig ! (NULL)annschaftsanzahl >20"
  528. 529 [139]a[170]1[177]20[167][141]709:[142]
  529. 530 a[178]a[170]1:[141]571
  530. 531 [153]zh$zh$:[153]"  (NULL)eue (NULL)annschaft   ...............";
  531. 532 [153]ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$;:[133]m$(a)
  532. 533 [139][181](a[173]2)[178]a[173]2[167][142]
  533. 534 [129]i[178]b[171]2[164]a[170]1[169][171]1
  534. 535 ds$(i)[178]ds$(i[171]2)
  535. 536 [130]i
  536. 537 ds$(a)[178]"......198."
  537. 538 ds$(a[171]1)[178]"......198."
  538. 539 ds$(b[171]1)[178]"......198."
  539. 540 ds$(b)[178]"......198."
  540. 541 :[153]:[153]
  541. 542 [129]i[178]1[164]150
  542. 543 [153]za$" (NULL)pieltage und valrgebnisse neu setzen "zb$
  543. 544 [139]i[178]150[167]550
  544. 545 [153]zh$;
  545. 546 [153]"                                     "zh$
  546. 547 [153]"                                     "zh$
  547. 548 [153]"                                     "zh$
  548. 549 [130]i
  549. 550 [141]709
  550. 551 [142]
  551. 552 [153]zc$:[129]x[178]1[164]7:[153]zg$:[130]x
  552. 553 [139]a[177]15[167][153]zh$zh$
  553. 554 [139]a[177]16[167][153]zh$
  554. 555 [139]a[177]17[167][153]zh$zh$
  555. 556 [139]a[177]18[167][153]zg$zh$
  556. 557 [139]a[177]19[167][153]zh$zh$
  557. 558 [129]j[178]1[164]c
  558. 559 gg$[178]"":hh$[178]"":n$(i,j)[178]"":g$(i,d(i,j))[178]"":h$(i,d(i,j))[178]""
  559. 560 g$(i,e(i,j))[178]"":h$(i,e(i,j))[178]"":[129]x[178]1[164]17:[153]zf$;:[130]x
  560. 561 [133]gg$:[139][200](gg$,3)[178]"..."[167]gg$[178]"..."
  561. 562 [139][200](gg$,1)[178]"n"[167]n$(i,j)[178][200](gg$,1):gg$[178]"..."
  562. 563 [139]gg$[179][177]"..."[167]g$(i,d(i,j))[178][196]([197]([200](gg$,3)))
  563. 564 [153]zh$;:[129]x[178]1[164]25:[153]zf$;:[130]x
  564. 565 [133]hh$:[139][200](hh$,3)[179][177]"..."[167]h$(i,d(i,j))[178][196]([197]([200](hh$,3))):hh$[178]""
  565. 566 [139]n$(i,j)[178]"n"[167]h$(i,d(i,j))[178]"":[139]n$(i,j)[178]"n"[167]g$(i,d(i,j))[178]""
  566. 567 g$(i,e(i,j))[178]h$(i,d(i,j))
  567. 568 h$(i,e(i,j))[178]g$(i,d(i,j))
  568. 569 [130]j
  569. 570 [142]
  570. 571 [139][181](a[173]2)[178]a[173]2[167]b[178](a[172]2)[171]2:c[178]a[173]2
  571. 572 [139][181](a[173]2)[179][177]a[173]2[167]b[178]a[172]2:c[178](a[171]1)[173]2
  572. 573 [142]
  573. 574 [153]:[153]"           ";za$" ascormatieren "zb$:[153]
  574. 575 [129]i[178]1[164]20
  575. 576 [139]m$(i)[178]""[167]m$(i)[178]"..............."
  576. 577 [130]i
  577. 578 [129]i[178]1[164]38
  578. 579 [139]ds$(i)[178]""[167]ds$(i)[178]"......198."
  579. 580 [130]i
  580. 581 [129]i[178]1[164]38
  581. 582 [129]j[178]1[164]10
  582. 583 [139]dn$(i,j)[178]""[167]dn$(i,j)[178]"......198."
  583. 584 [130]j
  584. 585 [130]i
  585. 586 [142]
  586. 587 [153]:[153]"           ";za$" ascormatieren "zb$:[153]
  587. 588 [129]i[178]1[164]b
  588. 589 [129]j[178]1[164]c
  589. 590 d(i,j)[178]d(i,j)[170]10
  590. 591 e(i,j)[178]e(i,j)[170]10
  591. 592 [139]n$(i,j)[178]""[167]n$(i,j)[178]"h"
  592. 593 [130]j
  593. 594 [130]i
  594. 595 [129]i[178]1[164]b
  595. 596 [129]j[178]1[164]a
  596. 597 [139]g$(i,j)[178]""[167]g$(i,j)[178]"800"
  597. 598 [139]h$(i,j)[178]""[167]h$(i,j)[178]"800"
  598. 599 g$(i,j)[178][196]([197](g$(i,j))[170]100)
  599. 600 h$(i,j)[178][196]([197](h$(i,j))[170]100)
  600. 601 [130]j
  601. 602 [130]i
  602. 603 [142]
  603. 604 [153]:[153]"           ";za$"(NULL)eformatieren"zb$:[153]
  604. 605 [141]571
  605. 606 [129]i[178]1[164]b
  606. 607 [129]j[178]1[164]c
  607. 608 d(i,j)[178]d(i,j)[171]10
  608. 609 e(i,j)[178]e(i,j)[171]10
  609. 610 [139]n$(i,j)[178]"h"[167]n$(i,j)[178]""
  610. 611 [130]j
  611. 612 [130]i
  612. 613 [129]i[178]1[164]b
  613. 614 [129]j[178]1[164]a
  614. 615 g$(i,j)[178][196]([197](g$(i,j))[171]100)
  615. 616 h$(i,j)[178][196]([197](h$(i,j))[171]100)
  616. 617 [139]g$(i,j)[178]" 800"[167]g$(i,j)[178]""
  617. 618 [139]h$(i,j)[178]" 800"[167]h$(i,j)[178]""
  618. 619 [130]j
  619. 620 [130]i
  620. 621 [142]
  621. 622 [129]i[178]1[164]a
  622. 623 sm$[178][196](1000[170]l(i,3))
  623. 624 [139]l(i,3)[179]0[167]sm$[178][199](48)[170]sm$
  624. 625 [139]l(i,3)[177][178]0[167]sm$[178][199](49)[170][201](sm$,3)
  625. 626 z(i)[178]i
  626. 627 sr$(i)[178][196](l(i,8)[170]100)[170][196](999[171]l(i,9))[170]sm$[170][196](100[170]l(i,1))[170][196](l(i,2))
  627. 628 [130]i
  628. 629 n1[178]1:n2[178]a
  629. 630 i[178]1
  630. 631 j1[178]n1:j2[178]n2
  631. 632 [139]sr$(j1)[177][178]sr$(j2)[167]640
  632. 633 x[178]z(j1):z(j1)[178]z(j2):z(j2)[178]x
  633. 634 x$[178]sr$(j1):sr$(j1)[178]sr$(j2):sr$(j2)[178]x$
  634. 635 j1[178]j1[170]1
  635. 636 [139]j1[178]j2[167]642
  636. 637 [139]sr$(j1)[177][178]sr$(j2)[167]635
  637. 638 x[178]z(j1):z(j1)[178]z(j2):z(j2)[178]x
  638. 639 x$[178]sr$(j1):sr$(j1)[178]sr$(j2):sr$(j2)[178]x$
  639. 640 j2[178]j2[171]1
  640. 641 [139]j2[179][177]j1[167]632
  641. 642 j2[178]j2[170]1
  642. 643 [139]j2[177][178]n2[167]646
  643. 644 k1(i,1)[178]j2:k1(i,2)[178]n2
  644. 645 i[178]i[170]1
  645. 646 j1[178]j1[171]1
  646. 647 [139]n1[177][178]j1[167]650
  647. 648 n2[178]j1
  648. 649 [137]631
  649. 650 i[178]i[171]1
  650. 651 [139]i[179]1[167]654
  651. 652 n1[178]k1(i,1):n2[178]k1(i,2)
  652. 653 [137]631
  653. 654 [142]
  654. 655 za$[178][199](18):zb$[178][199](146):zc$[178][199](19):zd$[178][199](147)
  655. 656 ze$[178][199](157):zf$[178][199](29):zg$[178][199](17):zh$[178][199](145)
  656. 657 zz$[178]"peekcloseright$close(NULL)closestr$close(NULL)closelencloseleft$closeright$close(NULL)close(NULL)"
  657. 658 zy$[178]"str$close(NULL)close(NULL)closelenclose(NULL)closevalclose(NULL)close"
  658. 659 zx$[178]"str$closeright$close(NULL)close(NULL)closevalclose(NULL)close(NULL)closeval"
  659. 660 zv$[178]"(NULL)eturn"
  660. 661 zw$[178]"(NULL)annschaften         -e-s-k-"
  661. 662 zt$[178]"(NULL)pieltage            -e-s-k-"
  662. 663 zs$[178]"(NULL)abellen               -s-  "
  663. 664 zr$[178]"(NULL)annschaftsliste       -d-  "
  664. 665 zq$[178]"(NULL)pieltage              -d-  "
  665. 666 zp$[178]"(NULL)abelle                -d-  "
  666. 667 zo$[178]"str$aten laden von str$iskette    "
  667. 668 zn$[178]"str$aten speichern auf str$iskette"
  668. 669 zm$[178]" (NULL)eue (NULL)iga  /   (NULL)(NULL)(NULL)chr$atn(NULL)(NULL)val(NULL)str$val "
  669. 670 zl$[178]"   e=eingeben s=sichten k=korrigieren"
  670. 671 zk$[178]" (NULL)=(NULL)enue (NULL)=korrigieren len(NULL)(NULL)(NULL)=blaettern  "
  671. 672 z1$[178]"ligatababs       (NULL)closevalclose(NULL)close(NULL)closevalclose    intby heuser"
  672. 673 z2$[178]"ligatababs(NULL)annschaften -e-s-k- intby heuser"
  673. 674 z3$[178]"ligatababs   (NULL)pieltage -e-s-k- intby heuser"
  674. 675 z4$[178]"ligatababs    (NULL)abellen   -s-   intby heuser"
  675. 676 z5$[178]"ligatababs(NULL)annschaftsliste -d- intby heuser"
  676. 677 z6$[178]"ligatababs   (NULL)pieltage   -d-   intby heuser"
  677. 678 z7$[178]"ligatababs    (NULL)abellen   -d-   intby heuser"
  678. 679 z8$[178]"ligatababs str$aten von str$isk. la. intby heuser"
  679. 680 z9$[178]"ligatababs str$aten auf str$isk. sp. intby heuser"
  680. 681 y9$[178]"ligatababs (NULL)eue (NULL)iga/(NULL)rg.-valnde intby heuser"
  681. 682 z0$[178]"ligatababs valingabe ok (mid$/(NULL))    intby heuser"
  682. 683 nz$[178]"ligatababs(NULL)achholspiele -e-s-k-intby heuser"
  683. 684 [142]
  684. 685 [141]571
  685. 686 [129]i[178]1[164]b
  686. 687 [153]zd$za$nz$zb$:[153]
  687. 688 [153]i;". (NULL)pieltag vom ";ds$(i):[153]:nz[178]0
  688. 689 [129]j[178]1[164]c
  689. 690 [139]n$(i,j)[179][177]"n"[167]692
  690. 691 [153]m$(d(i,j));" - ";m$(e(i,j)):nz[178]1:[153]"^^ (NULL)eues str$atum :   ";dn$(i,j)
  691. 692 [130]j
  692. 693 [139]nz[178]0[167][153]" (NULL)eine (NULL)achholspiele !!!"
  693. 694 [153]:[153]za$zk$zb$
  694. 695 [141]709
  695. 696 [139]w$[178]zh$[167]i[178]i:[139]i[178]b[167]i[178]0
  696. 697 [139]w$[178]zg$[167]i[178]i[171]2:[139]i[179]0[167]i[178]b[171]1
  697. 698 [139]w$[178]"k"[167][141]702
  698. 699 [139]w$[178]"m"[167][142]
  699. 700 [130]i
  700. 701 [142]
  701. 702 [153]zc$zg$zg$zg$zg$
  702. 703 [129]j[178]1[164]c
  703. 704 [139]n$(i,j)[179][177]"n"[167]706
  704. 705 [133]"^^ (NULL)eues str$atum : ";dn$(i,j):[153]zg$zh$
  705. 706 [130]j
  706. 707 [142]
  707. 708 [141]723
  708. 709 [141]723:[141]730
  709. 710 [142]
  710. 711 [152]2,"ligatab";[199](16)[199](54)[199](57);"by heuser":[142]
  711. 712 [153]zd$za$z3$zb$:[153]
  712. 713 [129]x[178]1[164]a[169]2
  713. 714 [153]x;
  714. 715 [139]x[179]10[167][153]" ";
  715. 716 [153]m$(x);
  716. 717 [139]x[170]1[179][178]a[167][153]x[170]1;
  717. 718 [139]x[170]1[179][178]a[175]x[170]1[179]10[167][153]" ";
  718. 719 [139]x[170]1[179][178]a[167][153]m$(x[170]1)
  719. 720 [130]x
  720. 721 [153]:[139]x[170]1[177]a[175]x[170]1[179]20[167][153]
  721. 722 [142]
  722. 723 si[178]54272:fl[178]si:fh[178]si[170]1:tl[178]si[170]2:th[178]si[170]3:wt[178]si[170]4:at[178]si[170]5:ht[178]si[170]6:lt[178]si[170]24
  723. 724 [151]lt,15:[151]th,15:[151]tl,15:[151]at,0[172]16[170]0:[151]ht,15[172]16
  724. 725 [151] wt,65
  725. 726 [129] xt[178]50[164]0[169][171]2:[151]fh,40:[151]fl,xt:[130]
  726. 727 [129] xt[178]50[164]0[169][171]4:[151]fh,40:[151]fl,xt:[130]
  727. 728 [151]wt,0
  728. 729 [142]
  729. 730 [161]w$:[139]w$[178]""[167]730
  730. 731 [142]
  731. 732 [139]g$(i,d(i,j))[178]""[167]g$(i,d(i,j))[178]" ..."
  732. 733 [139]h$(i,d(i,j))[178]""[167]h$(i,d(i,j))[178]" ..."
  733. 734 [142]
  734. 735 [139]g$(i,d(i,j))[178]" ..."[167]g$(i,d(i,j))[178]""
  735. 736 [139]h$(i,d(i,j))[178]" ..."[167]h$(i,d(i,j))[178]""
  736. 737 [142]
  737. 738 [151] 56334,[194](56334)[175] 254:[142]
  738. 739 [151] 56334,[194](56334) [176] 1:[142]
  739. 740 [160]15:[160]2:[153][199](147);za$z8$zb$:[153]
  740. 741 [159]15,8,15,"i0":[159]2,8,2,"#"
  741. 742 t[178]18:s[178]1
  742. 743 [152]15,"u1";2;0;t;s
  743. 744 [152]15,"b-p";2;0
  744. 745 [161]#2,xx$:[139]xx$[178]""[167]xx$[178][199](0)
  745. 746 t[178][198](xx$)
  746. 747 [161]#2,xx$:[139]xx$[178]""[167]xx$[178][199](0)
  747. 748 s[178][198](xx$)
  748. 749 [129]xy[178]0[164]7
  749. 750 [152]15,"b-p";2;xy[172]32[170]2
  750. 751 [161]#2,xx$:[139]xx$[178]""[167]xx$[178][199](0)
  751. 752 [139][198](xx$)[178]0[167]762
  752. 753 [152]15,"b-p";2;xy[172]32[170]5
  753. 754 ff$[178]""
  754. 755 [129]yx[178]0[164]15
  755. 756 [161]#2,xx$:[139]xx$[178]""[167]xx$[178][199](0)
  756. 757 [139][198](xx$)[178]160[167]760
  757. 758 ff$[178]ff$[170]xx$
  758. 759 [130]yx
  759. 760 [139]aa[178]0[167]aa[178]1:[153]"   ";ff$:[137]762
  760. 761 aa[178]0:[153]"   ";ff$
  761. 762 [130]xy
  762. 763 [139]t[179][177]0[167]743
  763. 764 [160]2:[160]15
  764. 765 [142]
  765.